home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0204.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  3.1 KB  |  136 lines
  1. *************************************************************
  2. *     ML0204.CMD - ROUTINE TO BUILD MAIL LABELS             *    9/25/84
  3. *************************************************************
  4. SET TALK OFF
  5. STORE 0 TO COUNT
  6. STORE '"'    TO Q
  7. IF TRIGGER#1
  8.     STORE Q+TRIM(CMNT1)+Q TO CMNT1
  9.     ENDIF
  10. IF TRIGGER=0
  11.     STORE Q+TRIM(CMNT2)+Q TO CMNT2
  12.     ENDIF
  13. SELECT SECONDARY
  14. USE MLABELT
  15. COPY TO MLSUB2 STRUCTURE
  16. USE MLSUB2
  17. SELECT PRIMARY
  18. USE MLSUB1 INDEX MLZIPX
  19. GOTO TOP
  20. ERASE
  21. @ 2,10 SAY '    0 Data Records have been processed'
  22.  
  23. DO WHILE .NOT. EOF
  24.     DO CASE
  25.         CASE TRIGGER=1 .AND.CP
  26.             STORE @(',',CONTACT) TO N
  27.             IF N>0
  28.                 STORE TRIM($(CONTACT,N+1,30-N))+' '+$(CONTACT,1,N-1) TO CONT
  29.             ELSE
  30.                 STORE CONTACT TO CONT
  31.             ENDIF
  32.             IF $(CONT,1,1)=' '
  33.                 STORE $(CONT,2,29) TO CONT
  34.             ENDIF
  35.             STORE CONT  TO CMNT1
  36.             STORE TITLE TO CMNT2
  37.         CASE TRIGGER=2 .AND.CP
  38.             STORE @(',',CONTACT) TO N
  39.             IF N>0
  40.                 STORE TRIM($(CONTACT,N+1,30-N))+' '+$(CONTACT,1,N-1) TO CONT
  41.             ELSE
  42.                 STORE CONTACT TO CONT
  43.             ENDIF
  44.             IF $(CONT,1,1)=' '
  45.                 STORE $(CONT,2,29) TO CONT
  46.             ENDIF
  47.             STORE CONT  TO CMNT2
  48.         CASE TRIGGER=3 .AND.CP
  49.             STORE TITLE TO CMNT2
  50.         CASE .NOT.(CP .OR. TRIGGER=0)
  51.             IF TRIGGER=1
  52.                 STORE ' '    TO CMNT1
  53.                 ENDIF
  54.             STORE ' '    TO CMNT2
  55.     ENDCASE
  56.     STORE @(',',INST) TO N
  57.     IF N>0
  58.         STORE TRIM($(INST,N+1,30-N))+' '+$(INST,1,N-1) TO CONT
  59.     ELSE
  60.         STORE INST TO CONT
  61.     ENDIF
  62.     IF $(CONT,1,1)=' '
  63.         STORE $(CONT,2,29) TO CONT
  64.     ENDIF
  65.     STORE CONT  TO T1
  66.     STORE ADD1 TO T2
  67.     STORE VAL(ZIP) TO TZIP
  68.     IF ADD2='                              '
  69.         STORE TRIM(CITY)+' '+STATE+'  '+ZIP TO T3
  70.         STORE ' ' TO T4
  71.     ELSE
  72.         STORE ADD2 TO T3
  73.         STORE TRIM(CITY)+' '+STATE+'  '+ZIP TO T4
  74.     ENDIF
  75.     IF PHONE#'              '
  76.         STORE '('+$(PHONE,1,3)+')'+$(PHONE,4,3)+'-'+$(PHONE,7,4)+'e'+$(PHONE,11,4) TO TPHONE
  77.     ELSE
  78.         STORE ' ' TO TPHONE
  79.         ENDIF
  80.     STORE TRIM(T1)    TO WA
  81.     IF WA#' '.OR.LEN(WA)>1
  82.         STORE Q+WA+Q    TO T1
  83.         ENDIF
  84.     STORE TRIM(T2)    TO WA
  85.     IF WA#' '.OR.LEN(WA)>1
  86.         STORE Q+WA+Q    TO T2
  87.         ENDIF
  88.     STORE TRIM(T3)    TO WA
  89.     IF WA#' '.OR.LEN(WA)>1
  90.         STORE Q+WA+Q    TO T3
  91.         ENDIF
  92.     STORE TRIM(T4)    TO WA
  93.     IF WA#' '.OR.LEN(WA)>1
  94.         STORE Q+WA+Q    TO T4
  95.         ENDIF
  96.     IF TRIGGER=1
  97.         STORE TRIM(CMNT1)    TO WA
  98.         IF WA#' '.OR.LEN(WA)>1
  99.             STORE Q+WA+Q    TO CMNT1
  100.             ENDIF
  101.         STORE TRIM(CMNT2)    TO WA
  102.         ENDIF
  103.     IF TRIGGER>0
  104.         IF WA#' '.OR.LEN(WA)>1
  105.             STORE Q+WA+Q    TO CMNT2
  106.             ENDIF
  107.         ENDIF
  108.     STORE TRIM(FIRSTNAME)    TO WA
  109.     IF WA#' '.OR.LEN(WA)>1
  110.         STORE Q+WA+Q    TO WA
  111.         ENDIF
  112.     SELECT SECONDARY
  113.     APPEND BLANK
  114.     REPLACE L1   WITH T1;
  115.             L2   WITH T2;
  116.         L3   WITH T3
  117.     REPLACE L4   WITH T4;
  118.         L5   WITH CMNT1;
  119.         L6   WITH CMNT2
  120.     REPLACE SZIP WITH TZIP;
  121.         C:DATE    WITH DATE();
  122.         PHONE    WITH TPHONE
  123.     REPLACE NAME    WITH WA;
  124.         RECID    WITH P.RECID
  125.     STORE COUNT+1 TO COUNT
  126.     @ 2,10 SAY COUNT USING '99999'
  127.     SELECT PRIMARY
  128.     SKIP
  129. ENDDO
  130.  
  131. RELEASE T1,T2,T3,T4,N,CMNT1,CMNT2
  132. RELEASE TZIP,COUNT,TRIGGER,CONT,TCODES,TPHONE,Q,WA
  133. RETURN
  134. IGGER,CONT,TCODES,TPHONE,Q,WA
  135. RETURN
  136.